}This demonstration shrinks the picture on the main screen in half and then loads it into the ImageStream control at the left.
Label3
aThis demonstration copies the image directly from one ImageStream control to the one at the left.
Label2
This demonstration uses the Windows MetaFile functions to copy the ImageStream metafile to a disk file. This file is then loaded into the VB PictureBox at the left.
Label1
~This demonstration creates a standard Windows based metafile in memory and copies it into the ImageStream control at the left.
Command7_Click
isvb5
bBox_top
ISVB1H
bBox_bottom
bBox_left
bBox_right
CopyMF
newwidth
newheight7
ExportFileSpec
ImportFileSpec
View100
Checkede
Command6_Click@
Height_InchesX
Width_Inches
Form_Load
Command13_Click
isvb2
Command4_Click
CopyMetaFile
Status
DeleteMetaFile
Picture1N
Command8_Click`
FileOffset
ExportFileTypei
ExportFileHandle
isvb3,
ImportFileType
ImportFileHandle
GlobalFree
Command9_Click
form2w
form1isvb1
Form1
fSpec
GlobalAlloc
wFlags
dwBytes
Command1_Click
Form4
Kernel
Kernel
Command1_Click
Command13_Click
Copy the bounding box and the DPI value
before making a copyx
This forces the new control to make a copy of
the image in isvb1w
Command4_Click
Use the Windows CopyMetaFile call to create a wmf version
of the image on disk.
metatest.wmf
Delete the metafile left in memory by CopyMetaFilev
Load the metafile in the standard VB PictureBox
metatest.wmf
Command6_Click
Top:
Bottom:
Left:
Right:
Inch:
Heigth:
Width:
Command7_Click
Make a copy of the picturem
Shrink the picture in halfm
Export the smaller picturem
small.wmf
Import the new smaller picture+
small.wmf
Delete temporary file
small.wmf
Command8_Click
Create a standard Windows metafile of the current image